home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / mcstr-32 / mcstr-32.bas < prev    next >
BASIC Source File  |  1996-08-06  |  7KB  |  96 lines
  1. Attribute VB_Name = "MCSTR_32_DEF"
  2. Option Explicit
  3.  
  4. ' string
  5.  
  6. '  definition for error type for PATTERNMATCHEXT
  7. Public Const MATCH_HEXA = 17
  8. Public Const MATCH_INTERNAL_ERROR = 16
  9. Public Const MATCH_PATTERN = 15
  10. Public Const MATCH_LITERAL = 14
  11. Public Const MATCH_RANGE = 13
  12. Public Const MATCH_ABORT = 12
  13. Public Const MATCH_END = 11
  14. Public Const MATCH_VALID = -1
  15.  
  16. Public Const PATTERN_VALID = 0
  17. Public Const PATTERN_INVALID = 1
  18. Public Const PATTERN_ESC = 2
  19. Public Const PATTERN_RANGE = 3
  20. Public Const PATTERN_CLOSE = 4
  21. Public Const PATTERN_EMPTY = 5
  22. Public Const PATTERN_INTERNAL_ERROR = 6
  23. Public Const PATTERN_HEXA = 7
  24.  
  25. ' definition for PROPERNAME2
  26. Public Const PN_UPPERCASE = 1
  27. Public Const PN_PUNCTUATION = 2
  28. Public Const PN_KEEP_ORIGINAL = 4
  29. Public Const PN_ONLY_LEADER_SPACE = 8
  30.  
  31. Declare Function cAddDigit Lib "mcstr-32.dll" (Txt As String) As Integer
  32. Declare Function cAlign Lib "mcstr-32.dll" (Txt As String, ByVal TypeAlign As Integer, ByVal NewLength As Long) As String
  33. Declare Function cAndToken Lib "mcstr-32.dll" (ByVal Txt As String, ByVal Token As String) As Integer
  34. Declare Function cAndTokenIn Lib "mcstr-32.dll" (ByVal Txt As String, ByVal Token As String, ByVal Separator As String) As Integer
  35. Declare Function cArabicToRoman Lib "mcstr-32.dll" (Var As Variant) As String
  36. Declare Function cBlockCharFromLeft Lib "mcstr-32.dll" (Txt As String, ByVal Position As Long) As String
  37. Declare Function cBlockCharFromRight Lib "mcstr-32.dll" (Txt As String, ByVal Position As Long) As String
  38. Declare Sub cChangeChars Lib "mcstr-32.dll" (Txt As String, CharSet As String, NewCharSet As String)
  39. Declare Sub cChangeCharsUntil Lib "mcstr-32.dll" (Txt As String, CharSet As String, NewCharSet As String, nUntil As String)
  40. Declare Function cCheckChars Lib "mcstr-32.dll" (Txt As String, CharSet As String) As Integer
  41. Declare Function cCheckNumericity Lib "mcstr-32.dll" (Txt As String) As Integer
  42. Declare Sub cCnvASCIItoEBCDIC Lib "mcstr-32.dll" (Txt As String)
  43. Declare Sub cCnvEBCDICtoASCII Lib "mcstr-32.dll" (Txt As String)
  44. Declare Function cCompact Lib "mcstr-32.dll" (Txt As String) As String
  45. Declare Function cCompress Lib "mcstr-32.dll" (Txt As String) As String
  46. Declare Function cCompressTab Lib "mcstr-32.dll" (Txt As String, ByVal nTab As Long) As String
  47. Declare Function cCount Lib "mcstr-32.dll" (Txt As String, Separator As String) As Integer
  48. Declare Function cCplAlpha Lib "mcstr-32.dll" (Txt As String) As String
  49. Declare Function cCplDigit Lib "mcstr-32.dll" (Txt As String) As String
  50. Declare Function cCreateAndFill Lib "mcstr-32.dll" (ByVal Length As Long, Txt As String) As String
  51. Declare Function cExpandTab Lib "mcstr-32.dll" (Txt As String, ByVal nTab As Long) As String
  52. Declare Sub cFill Lib "mcstr-32.dll" (Txt As String, Fill As String)
  53. Declare Function cFilterBlocks Lib "mcstr-32.dll" (Txt As String, Delimitor As String) As String
  54. Declare Function cFilterChars Lib "mcstr-32.dll" (Txt As String, CharSet As String) As String
  55. Declare Function cFilterFirstChars Lib "mcstr-32.dll" (Txt As String, CharSet As String) As String
  56. Declare Function cFilterNotChars Lib "mcstr-32.dll" (Txt As String, CharSet As String) As String
  57. Declare Function cFromHexa Lib "mcstr-32.dll" (Text As String) As String
  58. Declare Function cGet Lib "mcstr-32.dll" (Txt As String, ByVal Position As Long) As String
  59. Declare Function cGetBlock Lib "mcstr-32.dll" (Txt As String, ByVal Position As Long, ByVal Length As Long) As String
  60. Declare Function cGetIn Lib "mcstr-32.dll" (Txt As String, Separator As String, ByVal Position As Long) As String
  61. Declare Function cGetInPart Lib "mcstr-32.dll" (Txt As String, Separator As String, ByVal Position As Long) As String
  62. Declare Function cGetInPartR Lib "mcstr-32.dll" (Txt As String, Separator As String, ByVal Position As Long) As String
  63. Declare Function cGetInR Lib "mcstr-32.dll" (Txt As String, Separator As String, ByVal Position As Long) As String
  64. Declare Function cH2I Lib "mcstr-32.dll" (ByVal Txt As String) As Integer
  65. Declare Function cH2L Lib "mcstr-32.dll" (ByVal Txt As String) As Long
  66. Declare Function cInsertBlocks Lib "mcstr-32.dll" (Txt As String, Insert As String) As String
  67. Declare Function cInsertBlocksBy Lib "mcstr-32.dll" (Txt As String, Insert As String, Delimitor As String) As String
  68. Declare Function cInsertByMask Lib "mcstr-32.dll" (Txt As String, Mask As String, Insert As String) As String
  69. Declare Function cInsertChars Lib "mcstr-32.dll" (Txt As String, ByVal Position As Long, Insert As String) As String
  70. Declare Function cLrc Lib "mcstr-32.dll" (Txt As String) As String
  71. Declare Function cMixChars Lib "mcstr-32.dll" (Txt As String) As String
  72. Declare Function cMorse Lib "mcstr-32.dll" (ByVal morse As String) As String
  73. Declare Function cNumDigit Lib "mcstr-32.dll" (Txt As String) As Integer
  74. Declare Function cOneCharFromLeft Lib "mcstr-32.dll" (Txt As String, ByVal Position As Long) As String
  75. Declare Function cOneCharFromRight Lib "mcstr-32.dll" (Txt As String, ByVal Position As Long) As String
  76. Declare Function cOrToken Lib "mcstr-32.dll" (ByVal Txt As String, ByVal Token As String) As Integer
  77. Declare Function cOrTokenIn Lib "mcstr-32.dll" (ByVal Txt As String, ByVal Token As String, ByVal Separator As String) As Integer
  78. Declare Function cPatternMatch Lib "mcstr-32.dll" (ByVal Txt As String, ByVal pattern As String) As Integer
  79. Declare Function cPatternExtMatch Lib "mcstr-32.dll" (ByVal Txt As String, ByVal pattern As String) As Integer
  80. Declare Function cProperName Lib "mcstr-32.dll" (Txt As String) As String
  81. Declare Function cProperName2 Lib "mcstr-32.dll" (Txt As String, ByVal TokenToUse As String, ByVal Options As Integer) As String
  82. Declare Function cRemoveBlockChar Lib "mcstr-32.dll" (Txt As String, ByVal Position As Long, ByVal Length As Long) As String
  83. Declare Function cRemoveOneChar Lib "mcstr-32.dll" (Txt As String, ByVal Position As Long) As String
  84. Declare Function cResizeString Lib "mcstr-32.dll" (Txt As String, ByVal NewLength As Long) As String
  85. Declare Function cResizeStringAndFill Lib "mcstr-32.dll" (Txt As String, ByVal NewLength As Long, Fill As String) As String
  86. Declare Function cReverse Lib "mcstr-32.dll" (Txt As String) As String
  87. Declare Function cRomanToArabic Lib "mcstr-32.dll" (Txt As String) As Variant
  88. Declare Function cScrollL Lib "mcstr-32.dll" (Txt As String) As String
  89. Declare Function cScrollR Lib "mcstr-32.dll" (Txt As String) As String
  90. Declare Sub cSetDefaultSeparator Lib "mcstr-32.dll" (Separator As String)
  91. Declare Function cStringSAR Lib "mcstr-32.dll" (ByVal Txt As String, ByVal Search As String, ByVal Replace As String, ByVal Sensitivity As Integer) As String
  92. Declare Function cToHexa Lib "mcstr-32.dll" (Text As String) As String
  93. Declare Function cTokenIn Lib "mcstr-32.dll" (Txt As String, Separator As String, ByVal Position As Integer) As String
  94. Declare Function cUncompact Lib "mcstr-32.dll" (Txt As String) As String
  95.  
  96.